home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 June / Ahoy_Magazine_86-06_1986_Double_L.d64 / star strike (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  128 lines
  1. 5 dn=peek(186)
  2. 10 ifa=0thena=1:load"sprites",dn,1
  3. 15 sys49152
  4. 20 ifa=1thena=2:load"ss",dn,1
  5. 30 poke52,60:poke56,60:clr
  6. 45 goto10100
  7. 50 poke53281,6:poke34058,0
  8. 55 e=0:s=0:f=0:m=0:d$=""
  9. 100 print"[147]"tab(5)"***************************"
  10. 105 printtab(5)"*       select level      *"
  11. 110 printtab(5)"***************************"
  12. 120 print"[158]"tab(13)"1[146]  beginner"
  13. 125 print"[159]"tab(13)"2[146]  skilled"
  14. 130 print"[150]"tab(13)"3[146]  advanced"
  15. 135 print"[153]"tab(13)"4[146]  neurotic"
  16. 140 ti$="000000":a$=""
  17. 145 geta$:ifval(a$)>0andval(a$)<5then160
  18. 150 ifval(ti$)>30then45
  19. 155 goto145
  20. 160 ifval(a$)=1thenpoke33083,50:poke34381,1:poke36539,40:a=50
  21. 165 ifval(a$)=2thenpoke33083,40:poke34381,2:poke36539,30:a=100
  22. 170 ifval(a$)=3thenpoke33083,25:poke34381,3:poke36539,20:a=150
  23. 175 ifval(a$)=4thenpoke33083,20:poke34381,3:poke36539,15:a=200
  24. 180 print"[147]"tab(12)"[159] star strike "
  25. 185 printtab(12)"   phase i   "
  26. 190 gosub17000
  27. 200 forx=37692to37919:pokex,0:next
  28. 210 poke37721,20:poke37894,15:print"[147]"
  29. 220 gosub15000
  30. 230 sys32768
  31. 240 forx=1to1000:next
  32. 250 poke53269,0
  33. 260 gosub16000
  34. 270 ifpeek(37702)>0thend$="1":gosub19000
  35. 280 e=peek(37719):f=peek(37913):s=peek(37721)
  36. 300 ifval(d$)=1then900
  37. 420 print"[147]"tab(12)"[159] star strike "
  38. 430 printtab(12)"   phase ii  "
  39. 440 gosub17000
  40. 450 forx=37692to37919:pokex,0:next
  41. 460 poke37721,s:poke37894,20:poke37734,1:print"[147]"
  42. 470 gosub15000
  43. 480 sys32768
  44. 490 forx=1to1000:next
  45. 500 poke53269,0
  46. 510 gosub16000
  47. 520 ifpeek(37702)>0thend$="1":gosub19000
  48. 530 e=e+peek(37719):f=f+peek(37913):s=peek(37721)
  49. 670 ifval(d$)=1then900
  50. 675 ifval(a$)=1thenpoke34381,2
  51. 676 ifval(a$)=2thenpoke34381,3
  52. 677 ifval(a$)=3thenpoke34381,4:poke34058,1
  53. 678 ifval(a$)=4thenpoke34381,5:poke34058,2
  54. 680 print"[147]"tab(12)"[159] star strike "
  55. 690 printtab(12)"  phase iii  "
  56. 700 gosub17000
  57. 710 forx=37692to37919:pokex,0:next
  58. 720 poke37725,1:poke37721,s:print"[147]"
  59. 730 gosub15000
  60. 740 sys32768
  61. 750 sys36377
  62. 760 forx=1to1000:next
  63. 770 poke53269,0
  64. 780 poke54276,0:poke54290,0:poke54283,0
  65. 790 gosub16000
  66. 800 ifpeek(37910)=0thengosub19000
  67. 805 ifpeek(37910)>0thengosub21000
  68. 900 poke53281,6:poke53280,2
  69. 970 print"[147]"tab(11)"  star strike  "
  70. 980 printtab(11)"    scores     "
  71. 1000 print"   alien ships destroyed  [158]---",e
  72. 1010 print"    alien fire destroyed  [158]---",f
  73. 1020 print" remaining shield energy  [158]---",s
  74. 1050 t=e*a+s*a+f*a
  75. 1060 printtab(12)"[159]total score"
  76. 1065 printtab(15)"[158]"t
  77. 1070 ifm=0then1110
  78. 1075 t=t+1000
  79. 1080 print"  bonus for destroying mother ship"
  80. 1090 printtab(12)"[158]1000 points"
  81. 1100 printtab(5)"grand total  [158]----";t
  82. 1110 ift>hsthenhs=t
  83. 1120 forx=1to10000:next
  84. 1130 goto45
  85. 10100 poke53280,0:poke53281,0:print"[147]"
  86. 10110 print"[154]    [164][164][164][164]    [164][164][164][164][164][164]                [164][164][164]"
  87. 10120 print"   [206]   [206][205]  [206]     [206][205]     [206][205]       [206]  [206][205]"
  88. 10130 print"  [169]    [223][146][154][206] [169]      [223][146][154][206]    [169][223][146][154] [205]     [169]   [223][146][154][206][165]"
  89. 10140 print"    [146][154][206]  [206][205]      [146][154] [165]     [169]  [223][146][154] [205]     [146][169] [223] [146][154][206]"
  90. 10150 print"  [223]    [223][146][154][206][165]     [146][154] [165]    [169] [146][169][223] [223][146][154] [205]       [146][169][154][205]"
  91. 10160 print"  [206]  [169]  [146][154][206]      [146][154] [165]   [169]      [223][146][154] [205]    [146][223] [223][146][154][206][165]"
  92. 10170 print"  [223]    [146][169]       [146][154][206]   [169] [146][169]    [223] [223][146][154][206]    [146][154][206]  [146][154][206]"
  93. 10190 print"   [154][164][164][164][164]   [164][164][164][164][164][164]  [164][164][164]   [164]  [164][164]  [164]  [164][164][164][164][164]"
  94. 10200 print"  [206]   [206][205] [206]     [206][165][206]  [206][205] [206][206][165][206] [206][165][206][206] [206]    [206][165]"
  95. 10210 print" [145][169]    [223][154][146][206]       [146][154][206][169]   [223][146][154][206][165] [146][154] [165]  [146][154] [169][146][169]       [146][154][206]"
  96. 10220 print"   [146][154][206]  [206][205]     [146] [154][165]  [146][169] [223] [146][154][206]  [146] [154][165]  [169][146][169][154][165]    [146] [154][206][165]"
  97. 10230 print" [223]    [223][146][154][206][165]    [146] [154][165]     [146][169][154][205]  [146][154] [165]   [146][154][206][205]     [146][154][206][164][164]"
  98. 10240 print" [154][206]  [169]  [146][154][206]     [146][154] [165]   [146]";
  99. 10245 print"[223] [223][146][154][206][165] [146] [154][165]  [146][223][223][146] [154][205]   [146][154][206][163] [206][165]";
  100. 10250 print"[145] [223]    [146][169]      [146][154][206]    [146][154][206]";
  101. 10255 print"  [146][154][206]  [146][154][206]   [146][154][206][223][223][146][154][206]      [146][154][206]"
  102. 10260 print""tab(19)"[158]by":printtab(16)"bob eaton"
  103. 10265 printtab(12)"hi score   ";hs
  104. 10270 print"[158]   press a key or fire to continue"
  105. 10280 poke198,0:sys35478
  106. 10300 goto50
  107. 15000 poke56578,peek(56578)or3
  108. 15010 poke56576,(peek(56576)and252)or2
  109. 15020 poke53272,peek(53272)or8
  110. 15030 poke53265,peek(53265)or32
  111. 15040 return
  112. 16000 poke56578,peek(56578)or3
  113. 16010 poke56576,(peek(56576)and252)or3
  114. 16020 poke53272,21:poke53265,27
  115. 16030 return
  116. 17000 poke53281,6:print""tab(12)" get ready ! "
  117. 17010 print""tab(8)"[158]press fire to continue
  118. 17020 [151]198,0:[158]35478
  119. 17030 [142]
  120. 19000 [151]53281,0:[153]"loadsys"[163]6)"you have been destroyed!!!"
  121. 19010 [129]x[178]1[164]4000:[130]
  122. 19020 [142]
  123. 21000 [151]53281,6:[151]53280,2
  124. 21010 [153]"load"[163]10)"congratulations!!!"
  125. 21030 [153]""[163]5)"you have completed your mission.":m[178]1
  126. 21040 [129]x[178]1[164]5000:[130]
  127. 21050 [142]
  128.